********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

program nilai akhir;
uses crt;
var
NA :real;
kuisa:real;
kuisb:real;
uts:real;
tugas:real;
uas:real;
begin
clrscr;
write('MASUKAN NILAI KUIS_A:'); READLN (kuisa);
write('MASUKAN NILAI KUIS_B:'); READLN (kuisb);
NA:(kuisa+kuisb)/2;
writeln('nilai akhir;',NA:);
if(NA)=> THEN
writteln('lulus')
ELSE
writeln(tidak lulus');
readln;
end.